home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE2 / FASTERPC / DRIVE_C / GAMES / #IM / MUSIC / BACH.BAS < prev    next >
BASIC Source File  |  1979-12-31  |  3KB  |  64 lines
  1. REM Gigue from J.S.Bach's Partita No.1
  2.  
  3. REM This program was compiled using Borland's Turbo Basic.
  4. REM It also runs unchanged using Microsoft's QuickBasic supplied
  5. REM with DOS 5.0.
  6. REM Run this using Acorn's !PCem to hear some strange notes!
  7.  
  8. REM Display title
  9. PRINT "J.S.Bach : Gigue from Partita number 1"
  10.  
  11. REM Set tempo and choose hemidemisemiquavers as default
  12. PLAY "T150L16"
  13.  
  14. REM Play each bar of the piece
  15. PLAY "O4 F <D B- <B- >D B- O1 B- O3 D B- >F <D B-"
  16. PLAY "O4 G <E- B- A- E- B- G E- B- >G <E- B-"
  17. PLAY "O4 C <E- A G- E- A F E- A >C <E- A"
  18. PLAY "O4 D <F B- <B- >F B- O1 B- O3 F B- >D <F B-"
  19. PLAY "O4 G <B- >D <A B- >D <G B- >D <F B- >D"
  20. PLAY "O3 E B- >C <G B- >C <C B- >C E <B- >C"
  21. PLAY "O4 F <A >C <G A >C <F A >C <E A >C"
  22. PLAY "O3 D A B- F A B- <B- >A B- >D <A B-"
  23. PLAY "O4 E <G B- D- G B- C G B- >E <G B-"
  24. PLAY "O4 F <F A- D- F A- C F A- >F <F A-"
  25. PLAY "O4 G <E G D- E G C E G >G <E G"
  26. PLAY "O4 A- <E F D- E F C E F >A- <E F"
  27. PLAY "O3 B D F <A- >D F <G >D F B D F"
  28. PLAY "O4 C <E G <B- >E G <C >E G B- E G"
  29. PLAY "O3 A- E F <B >E F C E F <C >E F"
  30. PLAY "O1 F >A >C F A >C L4 F L64 P1 L16"
  31. PLAY "O4 A <F >C <E- F >C O2 F >F >C A <F >C"
  32. PLAY "O4 B- <F >D <A- F >D O2 B- >F >D B- <F >D"
  33. PLAY "O4 G <E- >D <B- E- >D <A E- >C G <E- >C"
  34. PLAY "O4 F+ <D >C <G E >C <A F+ >C F+ <A >C"
  35. PLAY "O4 G <G B- E- G B- D G B- >G <G B-"
  36. PLAY "O4 A <F+ A E- F+ A D F+ A >A <F+ A"
  37. PLAY "O4 B- <F+ G E- F+ G D F+ G >B- <F+ G"
  38. PLAY "O5 C O3 F+ A E- F+ A D F+ A O5 C O3 F+ A"
  39. PLAY "O4 B- <G B- >F+ <A >C G <B- >D C+ <G >E"
  40. PLAY "O4 D <A >F+ <G B- >G <F+ >C A <E- >C F+"
  41. PLAY "O3 D B >G <C+ B- >E <D A >F+ O2 D O4 C F+"
  42. PLAY "O1 G O3 B- >G O2 D >B- >G O2 G >B- >G O2 B- >B- >G"
  43. PLAY "O3 D A- >F <F A- >F <B- A- >F D <A- >F"
  44. PLAY "O3 E- G  >E- <B- G >E- G <G >E- <D G >E-"
  45. PLAY "O3 C A >E- <F  A >E- O2 B- >B- >D E <B- >D-"
  46. PLAY "O4 F <A >C <F A >C F <A >C <F A >C"
  47. PLAY "O4 E- <A >C <F A >C E- <A >C <F A >C"
  48. PLAY "O4 D <A- B F A- B >D <A- B F A- B"
  49. PLAY "O4 D- <G B- E G B- >D- <G B- E G B-"
  50. PLAY "O4 C <G- A E- G- A >C <G- A E- G- A"
  51. PLAY "O3 B F A- D F A- B F A- D F A-"
  52. PLAY "O3 B- E G D- E G B- E G D- E G"
  53. PLAY "O3 A E- G- C E- G- A E- G- C E- G-"
  54. PLAY "O3 G D- E <B- >D- E G D- E <B- >D- E"
  55. PLAY "O3 A C E- <G- >C E- <F >C E- A C E-"
  56. PLAY "O3 B- <B- >D- <G- B- >D- <F B- >D- B- <B- >D-"
  57. PLAY "O4 C O2 A >C <G- A >C <F A >C >C O2 A >C"
  58. PLAY "O4 D- O2 A B- G- A B- F A B- O4 D- O2 A B-"
  59. PLAY "O4 E O2 G B- D- G B- C G B- O4 E O2 G B-"
  60. PLAY "O4 F O2 A >C O1 G- >A >C O1 F >A >C >E- O2 A >C"
  61. PLAY "O4 D- O2 A B- E A B- F A B- O1 F >A B-"
  62. PLAY "O1 B- O3 D F B- >D F L 6 B-"
  63.  
  64.